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RIGHTS RESERVED. 
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++ 
Facility: FAL (DECnet File Access Listener) 


Abstract: 
This module contains support routines that encode (build) portions o 
A DAP message. Included are routines to build a message header and t 
convert binary data to extensible or image format. 


Environment: VAX/VMS, user mode 


Author: James A. Krycka, Creation Date: 16-JUN-1977 
Modified By: 
v03-001 node 12-APR-1984 


Track changes i pAPY 1 sae Be building algorithm. 
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-SBTTL DECLARATIONS 
: Include Files: 
SDAPHDRDEF 
SDAPCNF DEF ; Define DAP Configuration message 
$F ALWRKDEF ; Define FAL Work Area symbols 
0 H 
8 3; Macros: 
; None 


3; Equated Symbols: 


ASSUME FAL$Q_FLG EQ 0 


SENSIS DS DDD DOD DAD TOTTI 
MO OONAU ES WO OONOUS W000 


oooooooocoeo 
Cooooooooooeo 


: Own Storage: 


; Define DAP message header 
None 
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-SBTTL FALSBUILD_HEAD = BUILD DAP MESSAGE HEADER 
»PSECT FALSCODE NOSHR ,EXE,RD,NOWRT ,BYTE 


| 
p++ 
3; Functional Description: 
FALSBUILD_HEAD obtains a buffer and constructs a DAP message header 
in it. FACSBUILD_TAIL is a companion routine that is called after the 
message body has been formed to update the length value in the header. 
Sackler and 2-byte length fields are supported for DAP message 


Note that the algorithm for but ding the header does not support the 
use of optional fields such as STREAMID or SYSPEC. 


Calling Sequence: 
BSBwW FALSBUILD_HEAD 
Input Parameters: 


OOOO VCOCOOCOOOCOOOOCOCOooO 


SOOOCOOCOOCOCOCOOCOOCOOOOOSOOSOSOSOOCOOOSOOCOOCOOOOOOOOOCOOOOOOOO VC 


RO DAP message type value 

R8 Address of FAL work area 

a9 Address of DAP control block 
Implicit Inputs: 


DAPS$V_BIGBLK 
DAP$V-MSGBLK 


FAL$Q-X 

FALSV_LAST_MSG 
Output Parameters: 

R3 Address of next byte available for message body 
Implicit Outputs: 


FAL$Q_BLD 
DAP méssage header is placed in the message buffer. 


Completion Codes: 
None 

Side Effects: 
None 


POPMIR 9 9  M@ODOODODOOOOOO0O0O000000 0090009 090090909090909 SINGS 
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125 34+ 
6 1 § 3 gn xit from FALSBUILD_HEAD the incomplete message header will be either 
8 } ; 2. 3, or 4 bytes long Tn one of the following three formats: 
8 1 ; 3 TYPE=msg# pyeecase* TYPE=8 

130 ; FLAGS=0 FLAGS= FLAGS=6 
00 131; LENGTH=0 LEN a 
Bp ! § 3 LEN256= 
00 134 ; Note: The four byte format containing the extended length field is used only 
09 } i ; for a DAP Data message. 

1 . 
00 138 ASSUME DAP$V_STREAMID+1 EQ DAPS$V LoweTH 
38 17} ASSUME DAPS$VILENGTH+1 EQ DAP$V_LEN256 
00 141 FALSBUILD_HEAD:: 3; Entry point 
9 136 ABDL3) = FALSQ_XMT(k8) ,- ; Compute address of first unused byte 
0 14 FAL$Q-XMT+4 (RB) ,R3 ; in transmit buffer and return in R3 
06 144 MOVL  R3,FAC$Q_BLD+4(R8) ; Update build message descriptor 
OA 145 MOVB RO, (R3)+ ; Store DAP message ype value 
OD 146 BBS #FALSV_LAST_MSG, (RB) ,20S: Branch if this will be Last wpasage 
11 147 ; to block, thus requiring no length 
11 148 3; _field in header 
11 149 CMPB RO, #DAPS$K_DAT_MSG ; Branch if this is not a Data message 
14 150 BNEQ 10$ ; (because only a Data message is 
16 «151 3; potentially longer than 25 bytes) 
16 13¢ BBC #DAPS$V_BIGBLK,- ; Branch if 2=-byte Length field is 
18 15 DAPSQ SYSCAP(R9) 108 ; not supported by partner 
1B 154 MOVB #<<DAPSM_LENGTH>! - ; Store FLAGS field indicating that 
78 139 <DAPSM_LEN256>!- : an extended length field will be 
1E 156 0>, (R3)+ ; _ included 
16 T57 CLRW (R3)+ ; Reserve space for ewbyte Length value 
20 158 ; (to be filled in by FAL$BUILD_TAIL) 
20 386159 RSB ; Exit 
21 160 10S: BBC #DAPS$V_MSGBLK,- ; Branch if 1-byte length field is 
23. =—s «161 DAP$Q_SYSCAP(R9) ,20$ 3: not supported by partner 
6 162 MOVB  #DAPS$A_LENGTH, (R3)+ : Store FLAGS field 
9 163 20$: CLRB (R3)+ ; Reserve space for inbyte Longe® value 
B 164 : (to be filled in by FALSBUILD_TAIL) 
eB 165 ; OR overwrite FLAGS field with zero 
2B 166 : _if message blocking is not being used 
2B 167 RSB ; Exit 
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-SBTTL FALSBUILD_TAIL = COMPLETE DAP MESSAGE HEADER 
-PSECT FALSCODE ~ NOSHR,EXE,RD,NOWRT BYTE 


;++ 

; Functional Description: 

FALSBUILD_TAIL completes construction of the DAP message header that 

FALSBUILD-HEAD initiated by updating the length value in the header. 

per oth provte and 2-byte length fields are supported for DAP message 
king. 


Note that rt e'ggr {the for building the header does not support the 
use of optional fields such as STREAMID or SYSPEC. 


Note aes —_ the LENGTH {tote will be converted to a STREAMID field 
with a e of zero if a i=byte length field was allocated by 
FALSBUILD “HEAD, but the message body turned out to be more than 255 
bytes long which cannot be represented in a single byte field. 
Calling Sequence: 
BSBW FALSBUILD_TAIL 
Input Parameters: 


R3 Address of last byte of message + 1 
R8 Address of FAL work area 


Implicit Inputs: 


FAL$Q_BLD 
DAP message header 


Output Parameters: 
RO-Ri Destroyed 
Implicit Outputs: 


FAL$Q_ BLD 

LENGTA and LEN256 fields (if present) in the header are updated. 
Completion Codes: 

None 
Side Effects: 

LENGTH field may be converted to a STREAMID field with a value of zero. 


NN  —eeeeeEEEEEeEeEeEeEeeEeEeEeEeEeEeee 


FALENCODE 
v0c=000 


—4)Y> 
>v 
ee 


~s 
a 
cm 
PAY 
on 
PUPS BB BS ES BB EE EWA inopororononononn) «oS 


SOoOoOOQOoooQooCoOoOCOCOCOOOCOCOOOOOCOOOOOOOOCOoOO CoO 
‘go 


SWARM NEMO TMM VP OAPNIMIM OOOOOOOOOOOOOOOOOo Gg 


4 
8 
9 
Gv 
4 ASSUME 
2 ASSUME 
7 FALSBUILD_TAIL:: 
50 AB 6553) 4 AB OCC 3 SOBLS 
50 50 A8 7D 240 MOVQ 
OA €1 241 BBC 
06 61 § § 
02 Al 50 04 A3 ste SUBW3 
05 245 RSB 
09 «1 246 108: BBC 
13 61 247 
03 A2 248 SUBW2 
OOFF 8F 50 861 § 9 CMPW 
05 1A 0 BGTRU 
02 A1 50 90 251 MOVB 
05 rs § RSB 
01 Al 01 90 § Z 20$: MOVB 
05 255 30$: RSB 


AGE 
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Cc 8 
16-SEP-1984 01:44:07 VAX/VMS M P 
84:95:83 f IFA — 


v04-00 
FAL.SRC 0 
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p++ 

3 gn ie from FALSBUILD_TAIL the completed message header will be either 

; é, 3, or 4 bytes long Tn one of the following four formats: 

: TYPE=msg TYPE=ms gM TYPE=8 TYPE=8 

: FLAGS= AGS= FLAGS=6 FLAGS=1 

3 LENGTH=size LENGTH=size0 STREAMID=0 

: LEN256=sizel 

; Note: The four byte format containing the extended length field is used only 
; for a DAP Data message. 


DAPSV_STREAMID+1 EQ DAPS$V_LENGTH 
DAP$V_LENGTH+1 EQ DAPSV_LEN256 


; Entry point 


s Bxve 
#DAPSM_STREAMID,1(R1) ; Rewrite FLAGS field (converting 


ee field into STREAMID field) 
x 


FAL$Q_BLD+4(R8) ,R3,- ; Compute size of DAP message and 
FAL$Q_BLD(R8) 3 _update build descriptor 
FAL$Q_BLD(R8) ,RO ; Put message descriptor in <RO,R1> 
#<DAPSV_LEN256+8>,- ; Branch if 2-byte length field was 
; not allocated in message header 
#4,R0,2(R1) ; Compute size of message peer and 
3 ayere value in <LEN256,LENGTH> field 
D4 x 
#<DAP$V_LENGTH+8>,- ; Branch if 1-byte Length field was 
R1),30$ ; not allocated in message header 
# RO ; Compute size of message body 
RO,#255 :; Branch if Length of message body 
o$ ; will not fit in LENGTH field 
RO,2(R1) : Yogate LENGTH field 
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-PSECT FALSCODE NOSHR,EXE,RD,NOWRT ,BYTE 


+4 
Functional Description: 


FALSCVT_BN4_EXT converts an eeers longword value to an extensible 
field format and stores the result in a minimal number of bytes. 


Calling Sequence: 
BSBW FALSCVT_BN4_EXT 
Input Parameters: 


Oo 

oO 

o 

oOo 
DOOOOCOOCOCOOCOCSOO <oO 


SOOCOCGOOCOCOSOSOCOCSCOSSSSSSSSSOSOSCOSOOSOOSOOSOOOC OOOO OOOOOCOOOSOOOoOO +o 


R1 Binary value to convert and store 
R3 Address of next byte in buffer to store result 


Implicit Inputs: 
None 
Output Parameters: 


R1 Zeroed 
R3 Address of last byte of result + 1 


Implicit Outputs: 
None 
Completion Codes: 


CSE o-oo mibte tsteestsenasasenesdotnesenesesesie inne SS ee 
TOO & ™ WW 000000000909 09 09 09 C9 09 09 0D C0 C9 CD CD CD CD CD CO CO CO COCO CU CD CD CO CD CODON CDCD CD CDCNOCDODOCDCDCDCD 6D 
PA AA AA AGIPIPIPUNINIPININIPAINININININININPINININIPYIPINIPPIPININPIPIPIPINPUNININIPOPIPIPUNIPONIPY 
SOODOOOOOO OOOO OOO 0000 09 0909 09 09 09 09 SINISE SIN NIOOAAOAOAOOOUM ME 
NOUS AR 9 OD NAME WIN HO OD NAUE WN 0 OONOUES WN OODNOULWNH—O”OON mM 


COOCOCOCOOOCOOCOOOOOOOOOOOOOSOOOOSOOOOOOOOOOOoOO 


None 
Side Effects: 
None 
FALSCVT_BN4 _EXT:: ; Entry_point 
83 51 90 MOVE R1,(R3)+ ; Copy 7 bits to DST byte--the high 
; bit will be corrected later 
51 7F 8F 8A BICB2 #*X7F,R1 ; Discard SRC bits just copied 
51 51 £9 BF 9 ROTL #-7,R1,R1 : Move next 7 bits into place 
w.1.4 BEQL 10$ ; ALL done if remaining SRC bits 
3 are zero 
FF AS 80 8F 88 BISB2 #*x80,-1(R3) ; Set extensible bit in DST byte 
eB 11 BRB FALSCVT_BN4_EXT ; _and process next byte 
05 10$: RSB 3; Exit 


voé 
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SBTTL FALSCVT BN8_EXT = CONVERT B 
PSECT FALSCODE NOSHR EXE ,R 
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-£ p 
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zo 
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FAL.SRCJFALENCODE .MAR; 1 


NARY TO EXTENSIBLE 
sNOWRT ,BYTE 


p++ 
; Functional Description: 


FALSCVT_BN8_EXT converts an pe quadword value to an extensible 
field format and stores the result in a minimal number of bytes. 


Note that only source bits 00-62 are used; bit 63 is ignored. 
Calling Sequence: 

BSBW FALSCVT_BN8_EXT 
Input Farameters: 

R1 Binary value to convert and store (low order bits) 

RSs Radrete’of neat byte in buffer te stete resuite 
Implicit Inputs: 

None 
Output Parameters: 


Ri-R2 Zeroed 
R3 Address of last byte of result + 1 


Implicit Outputs: 
None 
Completion Codes: 


Sete Ge Se Se Ge Se Se Se Ge Se Se Ge Ge Se Ge Ge Se Ge Ge Ge Se Ge Se Ge Ge. Se Ge Ge Ge Se Se Se Ge Ge Se Be 


None 
Side Effects: 
None 
FALSCVT_BN8 _EXT:: ; Entry point 
SCLRBIT #31,R2 Clear high order bit so that zero 


will_always propogate on shift 


10$: MOVB R1,(R3)+ Copy 7 pits to DST byte=--the high 
w 


DPD DPD Pres Se BBS BB EE ENN WII WIIIAIRPOPOPINININPIAININY 2 OO OO "OK SEE 
PANO ODA NEW 8 OD NAME WIN 8 OD NAME WIN 0 OD NOU EWN (OOD NOUS WN O0 


3; bi lL be corrected later 
$A BICB2 #*X7F,R1 3; Discard SRC bits just copied 
9 ASHQ  #-7,R1,R1 : Move next 7 bits into place 
13 BEQL 20$ ; ALL done if remaining SRC bits 
3 are zero 
FF AS 80 BF 88 BISB2 #*x80,-1(R3) : Set extensible bit in DST byte 
11 BRB 10$ 3; _and process next byte 
05 00 20$: RSB : Exit 
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~SBTTL FALSCVT_BN4_IMG = CONVERT BINARY TO IMAGE 
-PSECT FALSCODE NOSHR,EXE,RD,NOWRT ,BYTE 


FALENCODE =. 
vou=000 FAL 


p++ 

; Functional Description: 
FALSCVT_BN4_IMG converts an unsigned longword value to an image 
field format (counted binary string) and stores the result in a 
minimal number of bytes. 

Calling Sequence: 
BSBW FALSCVT_BN4_ IMG 

Input Parameters: 


R1 Binary value to convert and store 
R3 Address of next byte in buffer to store result 


Implicit Inputs: 
None 

Output Parameters: 
R1 Zeroed 
Rg ASavese of last byte of result + 1 

Implicit Outputs: 
None 

Completion Codes: 
None 

Side Effects: 
None 


COOCCCOCSCOCOSOSOSOSOOOCOOCOOCOOOOOOOOOOOOOOOoOoOOO =o 
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Sete Ge Ge Ge Ge Ge Ge Ge Se Se Se te Ge Ge Se Ge Ge Se Se Ge Ge Ge Se Se Se Ge Ge Ge Se Se Se Se Ge Se Se Se 


FALSCVT_BN4_IMG:: Entry point 
“ROVE "8 


‘GO Cd CD Od OD CD OD OD OD GD GD OD CD Cd OD OD CD Cd OD Cd CD OD CD CD OD CD GD CD CD CD 09 CD CD CD GD GD. GD CD 0D CD CD CD CD CD0D 


SRS & 000 G0 G0 Go Go Ge G0 0 0 00 G0 G0 G0 G2 G2 G0 G0 00 G0 G0 G0 G0 G2 G2 O° OD 0 69 G0 G2 G2 G9O9 O9G0 G0 2 G9 G9 O900 000000 


io 
o 
Coo 


52 33 R3,R2 ; Save address of DST count byte 
8 9% CLRB (RS)+ ; Zero DST count byte 
ha TSTL RI ; Test value to convert 
oF 1 BEQL 20$ : ALL done if value is zero 
83 1 90 91 10$: MOVB R1,(R3)+ ; Copy next byte to DST 
. INCB (R2) : Increment byte counter 
CLRB R1 3; Discard byte Just copied 
F ROTL #-8,R1,R1 ; Move next byte into place 
F2 BNEQ 10$ ; There is more to do if any 


remaining bits are non-zero 
Exit 


RN 9 I @ MQOODODOOOO OOOO O00 OOO OW 000060 00 0909 09 09 09 SI NIN NINN NIN NINO OOO 


ROOD NAUSEA @ OOD NAME WIN 9 OD NA UNE WIN OS OD NAME WIN 0 ODNAU EW OO OONO 
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End of module 
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a 00000038 FAL$Q-RCVIOSB 
$V"BIGBLK = 00000014 FALSO-RM 
00000002 FALSQ~STATE_CTX 


FALSQ_SYSNET 
FAL$Q_ TEMP 
FAL$Q_VOLNAME 


: 
g ERs § 


DAPS$B_BITCNT 99 33 FALSL_KEYXABINI 0 
DAPSB_DECVER 0004 FALSL_NAM 
DAP$B_ECONUM 8 te FALSL_NAM2 
Sheae-rnee’> 893008 HALSL-PROHAS ——OD0003 
tite SS ia SH 
DAP$B_OSTYPE £000 4 FALSL_RDTXAB 
SAPaeTYEE TN G903008 fei wie 
DAP$B_USRNUM 090046 FALS$L_SUMXAB 
DAPSB_USRVER it FALSL_TEMP 9 
DAPSE-DAT RSG = 00000008 FALSL-USE-st2 000000 
DAPSM_BITCNT = $0000008 FALS$L_USE_VER O808 
DAPSM_LEN256 = 00000004 FAL$Q_BLD 0000 
Strtn-teenchr = S9s00n HALSECPALt OG! 95888 
= 
DAPSM_STREAMID = 00000001 FAL$Q_FLG 0000 
DAPSM_TMP1$ = 00000010 FAL$Q_MBX 0000 
DAPSM_TMP2$ = 0000008 tee eee 4464 
000 
000 
000 
34 
00 
00 
00 
00 
00 
01 
0 


ooo 
rorore 


Ss 
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$ere-sce ea ere sae ecee + 


! ;_Psect synopsis ! 


eect eee enmaeawoanm} 


| 
PSECT name Allocation PSECT No. Attributes 
| 


- ABS. 484 ) } oF ( 9. ; NOPIC USR CON ABS LCL ore NOEXE NORD vag) NOVEC BYTE 

SABSS Tad 8192. } -) NOPIC USR CON ABS LCL NOSHR EXE RD T NOVEC BY TE 

FALSCODE 000000A0 160. 3°} NOPIC USR CON REL LCL NOSHR EXE RD NOURT NOVEC BYTE 
tee se eee neem en ecee eae maae + 
H Performance indicators : 

Phase Page faults CPU Time Elapsed Time 

Initialization 30 00:00: 8.06 00:00:04. 36 

Command processing 112 Bp 288! - 00:00:01.59 

Pass 201 00:00: $8 00:00:16.05 

Symbol table sort 0 88 80:06 4 88: 880) +58 

Pass 2 80 00:00:00.82 B38 4.73 

Symbol table output 11 00:00:00.06 00:00:00.06 

Psect synopsis output 2 00:00:00.01 00:00:00.01 

Cross-reference output 0 00:00:00.00 00:00:00.00 

Assembler run totals 438 00:00:04.90 00:00:26.82 


The working set Limit was 1350 pages. 

23892 bytes (47 pages) of virtual memory were used to buffer the intermediate code. 

There were 20 pages of symbol table space allocated to hold 374 non-local and iT local symbols. 
422 source Lines were read in Pass 1, producing 13 object records in Pass 2. 

12 pages of virtual memory were used to define 11 macros. 


wes e tome mee een ee ee ee eee eee + 


Macro Library name Macros defined 
-$255$DUA28: CFAL.OBJJFAL.MLB;1 4 
~$255$DUA28: (SYSLIBJSTARLET.MLB;2 4 

TOTALS (all Libraries) 8 


497 GETS were required to define 8 macros. 


There were no errors, warnings or information messages. 
MACRO/LIS=L1S$:F ALENCODE/OBJ=OBJ$:FALENCODE MSRC$:FALENCODE/UPDATE=(ENHS$:F ALENCODE)+LIB$:FAL/LIB 
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